home *** CD-ROM | disk | FTP | other *** search
/ A Virtual Reality Guide to Texas / CD.iso / texdata / trnsprtr.dir / 00475_scroll regional text down.ls < prev    next >
Encoding:
Text File  |  1998-06-17  |  555 b   |  20 lines
  1. on mouseDown
  2.   global gRegionName
  3.   puppetSprite(the clickOn, 1)
  4.   set UpCast to the castNum of sprite the clickOn
  5.   set the castNum of sprite the clickOn to UpCast + 1
  6.   updateStage()
  7.   puppetSound(3, "beep3")
  8.   repeat while the stillDown
  9.     if rollOver(the clickOn) then
  10.       set the castNum of sprite the clickOn to UpCast + 1
  11.       scrollByLine(member (gRegionName & ".Regional InfoText"), 1)
  12.     else
  13.       set the castNum of sprite the clickOn to UpCast
  14.     end if
  15.     updateStage()
  16.   end repeat
  17.   puppetSprite(the clickOn, 0)
  18.   updateStage()
  19. end
  20.